a := 0;
p := proc ( b )
return := proc ( x ) b := b + x; return := b end
end;
c := p ( 2 );
d := c ( 1 );
e := c ( 1 )
